60483900 




CONTRpL DATA 
CORPORATION 



FORTRAN 
VERSION 5 
INSTANT 



RECEIVED 
! /Ml fist 

DAViU t. LEE 



CDC® OPERATING SYSTEMS: 

NOS1 
NOS/BE 1 
SCOPE 2 



« 



i 



js3&& 



I 



i 




CONTRPL DATA 
CORPORATION 



FORTRAN 
VERSION 5 
INSTANT 



CDC® OPERATING SYSTEMS: 
NOS1 
NOS/BE 1 
SCOPE 2 



f— «— - ■ "'■ " - 


REVISION RECORD 




REVISION 


DESCRIPTION 




A 


Original Release. 




(01-15-81) 














* 






































, 
































Publication No. 
60483900 







US 






1 



I 



REVISION LETTERS I, O, Q 
AND X ARE NOT USED 



Address comments concerning 
this manual to: 

CONTROL DATA CORPORATION 

Publications and Graphics Division 

215 MOFFETT PARK DRIVE 
SUNNYVALE, CALIFORNIA 94086 



I 



©COPYRIGHT CONTROL DATA CORPORATION 1980 
All Rights Reserved 
Printed in the United States of America 



J 



11 



LIST OF 
EFFECTIVE PAGES 



New features, as well as changes, deletions, and 
additions to information in this manual are indicated 
by bars in the margins or by a dot near the page number 
if the entire page is affected. A bar by the page 
number indicates pagination rather than content has 
changed. 



Page 



Rev 



Front Cover 

Title Page 

ii 

i i i / i v 

v thru ix 

1 thru 66 

Back Cover 



*0483900 A 



i i i / i v 



4 



I 



I 



I 



I 



i 



This instant outlines the FORTRAN Version 5 language. 
FORTRAN Version 5 complies with the American National 
Standards Institute FORTRAN language described in 
document X3. 9-1978 and known as FORTRAN 77. -FORTRAN 
Version 5 extensions to FORTRAN 77 are indicated by 
shading. Detailed information is contained in the 
FORTRAN Version 5 reference manual. 

The FORTRAN 5 compiler operates in conjunction with the 
COMPASS 3 assembly language processor under control of: 

9 NOS 1 for the CONTROL DATA® CYBER 170 Series; 
CYBER 70 Models 71, 72, 73, and 74; and 6000 Series 
Computer Systems , vh 

@ NOS/BE 1 for the CDC® CYBER 170 Series; CYBER 70 
Models 71, 72, 73, and 74; and 6000 Series Computer 
Systems 

© SCOPE 2 for CONTROL DATA CYBER 170 Model 176, 
CYBER 70 Model 76, and 7600 Computer Systems. 

This instant provides a brief description of the major 
FORTRAN 5 language features. It is intended for 
programmers familiar with FORTRAN 5. 

Detailed information can be found in the listed 
publications. The publications are listed 
alphabetically within groupings that indicate relative 
importance to readers of this manual. 

The NOS manual abstracts and the NOS/BE .manual 
abstracts are instant-sized manuals containing brief 
descriptions of the contents and intended audience of 
all NOS and NOS product set manuals, and NOS/BE and 
NOS/BE product set manuals, respectively. The 
abstracts manuals can be useful in determining which 
revision level of software documentation corresponds to 
the Programming Systems Report -CPSR> level of installed 
site software. 

The following publications are of primary interest: 

Publication 
Publication Number 

FORTRAN Version 5 

Reference Manual 60481300 

NOS Version 1 Reference Manual 

Volume 1 of 2 60435400 
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t$S/BE Version 1 Reference Manual 60493800 
SCOPE Version 2 Reference Manual 60497800 
ft* following publications are of secondary interest: 




Publication 

CYBER Interactive Debug Version 1 
Reference Manual 

» 
CYBER Record Manager Advanced Access 

Methods Version 2 Reference Manual 

CYBfR Record Manager Basic Access 
Methods Version 1.5 Reference Manual 

N0S Version 1 Manual Abstracts 

NOS/BE Version 1 Manual Abstracts 

Software Publications Release History 

Sort/Merge Version 4 and 1 
Reference Manual 



Publication 
Number 



60481400 

60499300 

60495700 
84000420 
84000470 
60481000 

60497500 



CDC aanuals can be ordered from Control Data 
Corporation, Literature and Distribution 
Services, 308 North Dale Street, St. Paul, 
Minnesota 55103. 
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NOTATIONS 

Certain notations are used throughout the manual with 
consistent meaning. These notations are: 

UPPERCASE Uppercase words in Language syntax 
indicate statement keywords or symbols 
to be written as shown. 



lowercase 



[] 



Lowercase words in language syntax 
indicate names, numbers, symbols, or 
entities to be supplied by the 
programmer. 

Brackets in language syntax enclose 
optional items that can be used or 
omitted. 



{} 



Braces in language syntax indicate that 
only one of the vertically stacked 
items can be used. 



--- Ellipsis in language syntax indicates 
that the preceding optional item in 
brackets can be repeated as necessary. 

A Delta in language syntax indicates a 

blank character. 

Shading Shading in language syntax, language 
descriptions/ and program examples, 
indicates extensions to FORTRAN 77. 
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LANGUAGE ELEMENTS 

This section describes the language elements of 
FORTRAN 5. 



SYMBOLIC NAMES 

Symbolic names are 1-6 or 7 letters and digits; the 
first character must be a letter. 



FORTRAN CHARACTER SET 

The FORTRAN character set is composed of the following 
symbols: 

Alphabetic: A to Z 

Numeric: to 9 

Special: = equal , comma 

+ plus : « colon 

- minus * apostrophe (CDC 

graphic f ) 
* asterisk . decimal point 

/ slash $ currency symbol 

( left parenthesis blank 
) right parenthesis ** quote 

(CDC graphic sO 

Any character acceptable to the operating system can be 
used in Hollerith or character information and 
comments- Blanks are significant only in character and 
Holtierith constants and character and Hollerith edit 
descriptors. 



FORTRAN STATEMENTS 

Column Contents 

1 C or * indicates comment line. 

1-2 C$ indicates compiler directives. 

1-5 Statement label (any 1- to 5-digit 
positive nonzero integer). 

6 Any character other than blank or zero 

denotes continuation (columns 1 through 
5 must be blank) . 
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7-72 FORTRAN statement. 

73-80 Identification field; not processed by 

the compiler, but printed with the 
source listing. 

Statements are written in columns 7 through 72; blanks 
are ignored except in Hollerith or character fields. 
All 80 columns can be used for data input. Statements 
can be labeled by an integer constant in the range 1 
through 99999. 



PRINTER CONTROL CHARACTERS 

Characte r Action 

Blank Space vertically one line, then print. 

Space vertically two lines, then print. 

1 Eject to first line of next page before 
printing. 

+ Do not advance before printing; allows 

overprinting. 

Any other Refer, to .operating system reference 
character manuaU 



CONSTANTS 

A constant is a fixed quantity. Table 1 lists the 
types of constants and gives a brief description of 
each . 



VARIABLES 

A variable is a quantity that can be changed. It is 
composed of 1-6 or .7 letters or digits; the first 
character must be a letter. 



DEFAULT IMPLICIT TYPING 

A variable not defined in a type declaration is: 
A-H,0-Z Real 

I-N Integer 

2 60483900 A 
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Table 2 Lists the types of variables and gives a brief 
description of each. 



A FORTRAN array is a set of elements identified by a 
single name. The name is composed of 1 through 6 HHl 
letters and digits and begins with a letter. The array 
name and its dimensions must be declared in a 
DIMENSION, COP^iON, or type statement. Arrays can have 
one to seven dimensions. The declaration of array 
dimensions takes the following form: 

array(dC,dD ) 

array Is the symbolic name of the array. 



lower 



Specifies the bounds of an 
dimension and takes the form: 



array 



Clower:Dupper 

Specifies the lower 

dimension. The lower 

integer expression with 

or negative value. If omitted, the lower 

bound is assumed to be 1, 



bound of the 
bound can be an 
a positive, zero, 



upper Specifies the upper bound of the 
dimension. The upper bound can be an 
integer expression with a positive, zero, 
or negative value. The upper bound rpust 
be greater than or equal to the Lower 
bound. 

Example: 

REAL 

TABLE (4,3) 
INTEGER X(-10:10) 



References to complete arrays or to specific array 
elements can be made. A reference to a complete array 
is to the array name. A reference to a specific 
element involves the array name followed by a subscript 
specification. The format for array element references 
is as follows: 



array(eC,e] .. .) 
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array Is the symbolic name of the array, 



Is a subscript expression that is an 
integer, real,, double-precision, complex, 
or Boolean expression. 



Example: 

X=DZ(12) 



CHARACTER SUBSTRINGS 

Specific parts of a character string can be defined or 
referenced with character substring references. A 
character substring reference has the following format: 

charCfi rstD :ClastD) 

char Is the name of a character variable or an 
array element. 

first Specifies an integer, real^ double- 
precision, Boolean, or complex expression 
for the position of the first character 
of the substring. If first is omitted, 
the value is one . 

last Specifies an integer, real, doubles- 
precision, Boolean, or complex expression 
for the position of the last character in 
the substring. If last is omitted, the 
value is the length of the string. 

Example: 

CHARACTER SIX6,S2*3,S3*4 
DATA S1/' STRING*/ 



S2=S(1 :3) 
S3=S(3:) 

In this example, S2 has the value ' STR' and S3 has the 
value 'RING' . 
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STATEMENT FORMS 




t 



The following symbols are used in the description of 
statements: 

v Variable, array element, or substring 

si Statement label 

iv Integer variable 

name Symbolic name 

u Input/output unit: 1- to 3-digit decimal 
integer constant; integer variable with 
value of: through 999 or a Hollerith 
value denoting the file name, left- 
justified with zero fill 

fn Format designator, statement label, or 
array name 

ios Integer variable into which one of the 
following values is placed after the 
input/output operation is complete: 

<0 End-of-file 

=0 Operation completed normally 

>0 Number of error conditions 
detected 

n String of 1 to 5 digits or character 
constants 

con Constant, constant expression, or 
extended constant expression 

c — c String of 1 to 70 characters 

earn Arithmetic or masking expression 

erL Relational or logical expression 

ce Character expression 

a Variable or array name 

iolist Input/output list specifying items to be 
transmitted 

recn Record number jlf| 

mi 
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ASSIGNMENT STATEMENTS 

An assignment statement assigns a value to a variable- 
Table 3 lists the format and an example for each of the 
assignment ' tatements, 



TABLE 3. LIST OF ASSIGNMENT STATEMENTS 



Type 


Format 


Example 


Arithmetic 
Logical 

Character 


v = earn 
v = erl 

v = ce 


A = B + C 

LOGICAL L,M,N 
L = M .AND. N 
M = B .EQ. C 

CHARACTER A*2,B*4 

A = B 


Multiple 
Boolean 


v = tv»3 

.„* expression 

v = expression 
(arithmetic or 
Boolean) 


X * Y = Z * <10* -H3) 
A - C*D 
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CONTROL STATEMENTS 



The control statements provide a means of altering, 
interrupting, terminating, or modifying the normal flow 
of a program. Table 4 lists the type, the format, and 
an example for each of the control statements. 




SPECIFICATION STATEMENTS 

Specification statements are nonexecutable and are used 
to specify the characteristics of symbolic names used 
in the program. (See table 5.) 



PROGRAM UNITS AND PROCEDURES 

A program unit is a group of FORTRAN statements with 
optional comments, terminated by an END statement. A 
procedure can be a function subprogram, a subroutine 
subprogram, or a statement function. (See table 6.) 



« 



INPUT/OUTPUT 



Input and output involve reading records from files, 
and writing records to files. (See table 7.) 



EXTENDED INTERNAL FILES 

The internal transfer of data is accomplished through 
the ENCODE and DECODE statements. ENCODE is the 
extended internal file output statement and DECODE is 
the extended internal file input statement. The 
formats are: 

DECODE(c,fn,v) iolist 

Example: 

DECODE (77, 17,CARD)1NK 

ENCODE ( c,fn,v)i oil st 
Example: 

ENCODE (40,1 ,ALPHA) A,B, C 
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to be opened. 
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one of the following values: 
•FORMATTED', 'UNFORMATTED'. 
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FILE POSITIONING STATEMENTS 

File positioning statements are used to position files 
connected for sequential access- Table 8 lists the 
name, the format, and an example of each statement. 



TABLE 8. LIST OF FILE POSITIONING STATEMENTS 



*>, * 



Format 


Example 


REWIND (CUNIT=3 u 


REWIND (3, ERR=40) 


C,I0STAT=ios3 




C,ERR=sU) 




BACKSPACE (L~UNIT=3 u 


BACKSPACE (LUN,ERR=50) 


C,I0STAT=ios3 




C,ERR=sU) 




END FILE (CUNIT=3 u, 


END FILE (UNIT=I0UT,ERR=100) 


CI0STAT=ios3 




C,ERR=sU) 





FORMAT SPECIFICATION 

Format specifications are used to produce output or 
read input that consists of strings of display coded 
characters: 

si FORMAT (f list) 

flist Is a list of items, separated by commas. 

Example: 

100 F0RMAT(I6,F7.3, 214) 



DATA CONVERSION 

The data conversion to be performed is specified by 
format specifications. Format specifications are 
composed of repeatable and nonrepeatable edit 
descriptors. Tables 9 and 10 summarize the edit 
descriptors. 
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OVERLAYS 

Overlays reduce the amount of storage required and make 
efficient use ,of the available field length, An 
overlay is identified by the OVERLAY statement and is 
called by the OVERLAY call r 

CALL OVERLAYCf name, i^jE/recatlC^kJl) 

fname Is either the file name of the file 

containing the Ci ^ j > overlay to be 
executed (if k is absent or zero) / or the 
overlay name (if k is nonzero). 

VJ Are the overlay level numbers and can be 

an integer expression. 

recall Is the recall parameter and can be an 
arithmetic expression with the value 
6HRECALL, or a character expression with 
the value 'RECALL*. 

k is an indicator affecting the 

interpretation of fname. 

Example i 

CALL 0VERLAY(3HSUB,1>0,6HRECALL) 

The OVERLAY statement 1st 

OVERLAY Ctfname,! i^jt:, or ig3 t,0V=ml> 

fname Is the name of the file in which the: 

generated overlay is to be written* 

i^j Are the overlay level numbers in octal (0 

through 77). 

orig Is an optional parameter specifying the 

origin of the overlay; not allowed for 
(0,0) overlay. The loader accepts any of 
the fot lowing forms; Cnnnnnn, O^nnnnnn, 
Q=ept, 0~ept+nnnnnn. 

0V=n Is an optional parameter specifying that 

the overlay generator is to generate an 
overlay structure suitable for Fast 
Overlay Loader (FDD - 

Example; 

0VERLAYtXFlLE,O,Q,0V~2> 
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DEBUGGING 

Two .debugging aids are available to help the user find 
execution-time errors in a FORTRAN program- They are 
CYBER Interactive Debug (CID) and Post Mortem Dump 
(PMD) . 

CYBER Interactive Debug is a supervisory program that 
allows the user to monitor and control the execution of 
a FORTRAN program from a terminal. To use all of the 
capabilities of CID, the user must specify the DEBUG 
control statement prior to compilation or the FTN5 
control statement must specify the DB=ID parameter. 
For further details on CID, see the CYBER Interactive 
Debug Version 1 reference manual. 

Post Mortem Dump is a program that analyzes the cause 
of execution-time errors in FORTRAN programs. To use 
PMD, the DB=PMD parameter must be specified on the FTN5 
control statement. PMD is invoked by hardware/software 
errors and can also be invoked intentionally by the 
user. 

PMD has the following optional calls: 

» CALL PMDARRY(i,j,k,l,m,n,o) 

Causes dumps of arrays to be limited to elements 
where subscripts do not exceed i,j,k,l,m,n, and o 
for their respective dimensions; the integers i 
through o represent the first through seventh 
dimensions respectively. 

Example: 

CALL PMDARRY(3,4,1) 

& CALL PMDDUMP 

Causes a dump of variables in the calling routine, 
not at once, but when an abort occurs or when 
PMDLOAD or PMDSTOP is called. PMDDUMP and PMDLOAD 
or PMDSTOP need not be called from the same 
routine. 

Example: 

CALL PMDDUMP 

e CALL PMDLOAD 

Causes an immediate dump of variables in the 
calling routine and in any routines that have 
called PMDDUMP. 
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Example: 

CALL PMDLOAD 

« 

CALL PMDSTOP 

Causes an immediate dump of variables in the 
calling routine, all routines in the trace-back 
chain, and any routines that have called PMDDUMP. 

Example: 

CALL PMDSTOP 

See the FORTRAN 5 reference manual for further details 
on PMD. 
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CONOmONAL COMPILATION 



A "conditional compilation directive controls whether 
the lines immediately following the directive are to be 
processed or ignored by the compiler. The formats of 
:the categories of the conditional compilation 
directives ar^st 

C% IF<eHt,3Ub3 

e Is a logical constant expression 

lab Is a label* It must be a symbolic name* 

Example: 

C$ IF<M »EQ. 0) 

C$ ELSE t,Ub3 
lab is ^ label 

Example: 

€$ ELSE 
C$ ENDIF C^tab3 
lab Is a label, 

Examples 

C$ EfciDIF 



It must be a symbolic name 



It must be a symbolic namsi 



« 



i 



COLLATION CONTROL 

A collation control directive directs the 
interpretation of character relational expressions in 
the lines following the directive and preceding either 
another collation .control directive or the END 
Statement of the program unit, It has the following 
format; 

C$ COLLATE <p> 

p Is FIXED or USER* 

Examples 

C$ COLLATE <USE8) 



I 



i 
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DOLOOPCONTRO 

A DO Loop control directive modifies the state of on 
or both DO loop switches. It affects th< 

interpretation of only those DO loops whas> 
DO statements follow the directive in the same prograi 
unit. The format is as follows: 

C$ D0CpC=c3 C,pC=cD3) 

p Is either OT or LONG. OT=minimum tri| 

count. LONG=maximum trip count. 

c Is a constant or the symbolic name of . 

constant. 

Example: 

C$ D0CL0NG-1) 

FORTRAN LIBRARY: INTRINSIC FUNCTION 

Table 11 gives a list and brief description of th« 
FORTRAN library intrinsic functions. 

LIBRARY SUBROUTINES AND FUNCTION: 

Library subroutines and functions are utilit; 
subprograms supplied by the system: 

# DATE< ). 

Returns current date in format mm/dd/yy. 

• J DATE C ) 

Returns current date in format yyddd. N01 
available on SCOPE 2. 

» TIME( ) or CLOCKC ) 

Returns current time in format hh.mm-ss. 

9 CALL DISPLA(h,k) 

Places a name and a value in the dayf i le 

Parameter h is a character expression to bt 

displayed. Parameter k is a real or integei 

variable or expression whose value is to bt 
displayed. 
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CALL REMARK<h> 

Places a message in the dayfile. Parameter h is a 
character expression. 

* CALL SSWTOUi,j) 

Tests sense switches. If sense switch i is on, j 
is set to 1; if sense switch i is off, j is set 
to 2* Parameter i is a sense switch number, 
Parameter j is an integer return variable, 

e CALL 6ETPARM(c1,c2,i) 

Accesses user parameters that have been decLared on 
the execution control statement. Parameter d is 
the character variable or array element to receive 
the parameter name. Parameter c2 is the character 
variable or array element to receive the parameter 
value. Parameter i is the integer return code. 

# CALL RAMSET(n) 

Initializes the seed of RANF. Parameter n is a 
one-word-bit pattern. 

> CALL RAMGET(n) 

Obtains the current seed of RAN F between and 1 .j 
Parameter n is. the symbolic name to receive the 
random number seed* 



INPUT/OUTPUT STATUS CHECKING 

Input/output status checking can be done by. using the 
following, functions: 

* UNITCu) 

Checks., the status of a BUFFER IN or BUFFER. 'OUT 
operation for an end-of-file or parity error 
condition on logical unit u* 

Example: 

IF(UNIT(5»12,14/I6 

EOF(u) 

Tests for an end-of-file condition on unit u 
following a formatted, list directed, NAHELIST, or 
unformatted sequential read. 
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Example: 

IF(EOF(5).NE.0)G0 TO 20 

IOCHECCu) 

Tests for a parity error on unit u following a 
formatted, list directed, NAMELIST, or unformatted 
read* . 

Example: 

J=I0CHEC<6) 






1 



LENGTH (u) . 

CALL LENGTHXCu,nw,ubc) 

Returns information regarding the previous BUFFER 
IN or READMS call of the file designated by u. 
Parameter nw is the argument set to the number of 
words read. Parameter ubc is the argument set to 
the number of unused bits in the last word of the 
transfer* 






CALL LABEL (u,labinfo) 

Passes . label information to 
Parameter labinfo specifies 
information. . 



the operation system* 
the array for label 



CALL M0VLEV(a,b,n) 

Transfers h consecutive words of data between a 
and b. . Parameter a specifies a variable that is 
the starting address of the data to be moved. 
Parameter b specifies a variable that is the 
starting address of the receiving location. This 
function is normally used to move data to and from 
ECS or LCM. 

Example: 



i 



CALL M0VLEVC01 ,02,1000) 

CALL M0VLCH(a,b,n) 

Transfers n consecutive characters between a 
and b. Parameter a specifies a variable, array 
element, or substring that represents the starting 
location on the character string to be moved. 
Parameter be specifies a variable, array element, 
or substring that represents the starting location 
of the receiving area. 



« 
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Example: 

call nm-mtmns) M 

• CALL CONN€C(u,gs) ^ 

Connects files to the terminal. Parameter cs is 
the character. set designator C0=Display y 1=ASCII 96 
■'• 2=ASCII 256>V; : * :T 'v* ■v'./' : '** 

• CALL DISCONCu) 

disconnects a file from within a program 



RANDOM FILE ACCESS 

The following mass storage input/output subroutines 
provide random file access capability: 

* CALL 0PENraS(u A ix,ln9th,t) 

Opens the mass storage file and informs the system 
that it is a random file. Parameter ix is the name 
of the array containing the master index. 
Parameter Ingth is the length of the master index. 
Parameter t is the type of index* 

Example; 

CALL OPENWS (5,1,1 1,0) 

• CALL WRITES Cu^fwa^k^s) 

Transmits data from central memory to the file, 
Parameter fwa • is the name of an array in central 
memory or LCW. Parameter n is the number of 60-bit 
word to be transferred. Parameter k is the record 
key. Parameter r specifies rewrite. Parameter s 
specifies subindex flag. 

Example: 

CALL WRITMS(3 / 0ATA, 25,6,1) 

CALL READMS£u,fwa,n,k) 



Transmits data from the file to central memory. 
Parameter u, fwa, n, k are the same as in CALL 

warms. 



* 



60483900 A 



49 



Example: 

CALL READMS(3,M0RDAT,25,2) 

CALL CLOSMS(u) 

Writes the master index from central memory to the 
file and closes the file. 

Example! 

CALL CL0SMSC2) 

CALL STINDXCu,ix,lngth,t) 

Selects a different array to be used as the current 
index to the file. Parameter ix is the name of the 
array in central memory containing the subindex. 
Parameter Ingth is the length of the subindex. 
Parameter t is the type of subindex. 

Example: 

CALL STINDX(3,SUBIX,10,0) 




The following is a list of miscellaneous debugging 
routines: 

• CALL STRACE 

Provides traceback information from the subroutine 
calling STRACE back to the main program. 

9 LEGVAR(a) 

Checks the value of variable a and returns the 
result -1 if the variable is indefinite, +1 if out 
of range, and otherwise. Parameter a is the 
argument . 

• CALL SYSTEMCernum,mesg) 

Enables the user to issue an execution-time error 
message. Parameter ernum is the error number. 
Parameter mesg is the error message. 

Example: 

CALL SYSTEMCS/CHECKDATA 1 ) 



« 



I 



I 






CALL SYSTENCCerrnum^speclist) 

Enables the user to alter the contents of the error 
table, which contains spec ifi cat ions that regulate 
error processing- Parameter ermum is the error- 
number* Parameter spectist is an integer array 
containing error processing specifications in 
consecutive locations. 

Example: 

CALL $YSTEflC{H5,IRAY) 

CALL -Uftatttttiw) 

Enables the user to input data without the risk of 
termination when improper data is encountered. 
Parameter lim is the limit for the number of errors. 

Example: 

CALL LIMERIH20O} 

mmm< > 

NUftERR returns the number of errors since the last 
imzm call, 

Example; 

If (NUWERR< > «$T\ 0) GO TO 500 



COLLATING SEQUENCE CONTROL 

The following utility subroutines provide collating 
sequence control: 

+ CALL C0LSE$(a> 

Selects a processor-defined, user-specified weight 
table* Parameter a is a character expression tfyat 
is one of the following: ASCII6, C0B0L6, DISPLAY, 
or STANDARD, 



Example 



CALL C0LSEQCC0B0L6') 
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> CALL WTSET(ind,wt) 

Modifies the user-specified weight table. 
Parameter ind is a character express fbh- 
- Parameter wt is an integer expression. 

£xample; 

CALL WT$ETC'$V,ICHAR< f .O) 

\* CALL C$OWN(str> 

Specifies a partial collating sequence. 

Parameter str is a character expression v 

SAMPLE DECK STRUCTURES 

Refer to the operating system reference manual for 
required job and accounting statements and for details 
of control statements. 

COMPILE AND EXECUTE 

A sample deck structure to compile and execute a 
FORTRAN program is shown in figure 1. 

COMPILE AND PRODUCE BINARY CARDS 

A sample deck structure to compi le and produce binary 
cards is shown in figure 2. 

LOAD AND EXECUTE BINARY PROGRAM 

A sample deck structure to load and execute binary 
programs is shown in figure 3. 

COMPILE ONCE AND EXECUTE WITH 
DIFFERENT DATA DECKS 

A sample deck structure to compile once and execute 
with different data decks is shown in figure 4. 

COMPILATION AND EXECUTION 
WITH OVERLAYS 

Preparation of Overlays 0,0; 1,0; and 1,1 are shown in 
figure 5. 

52 60483900 A 
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£. 



L 



data 



L 



END 



t 



/ 
FORTRAN statements 



/subroutine RVIE (C,J,L) 



C 



END 



£ 



FORTRAN statements 



FUNCTION RTSM (A,B) 



END 



JL 



FORTRAN statements 



2 



PROGRAM MAIN 



/lgo. 



/ FTN5. 

/charge ( 



L/USER 



JOB. 



FORTRAN 

SOURCE 

PROGRAM 



Figure 1. Sample Deck Structure to Compile and Execute 
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7 
8 

9 ( 








f I 




/ l 




// 1 




/source deck 












A 

, 1 


3 ROGRAM BOB(INPUT,OUTPUT,TAPE1) 






- 


h 

8 
9 














/ FTN5(B=PUNCHB,OPT=2) 








/charge ( ) 








f 




PUNCH B is automat- 
ically punched at end- 
of-job. 

0PT=2 specifies full 
optimization. 


/ USER ( ) 






J'job. 






















i 



i 



Figure 2. Sample Deck Structure to Compile and Produce Binary Cards 



ERMINAL USAGE FORMATS 



Terminal usage formats to compile and execute under NOS 
in the FORTRAN subsystem and the BATCH subsystem are 
described in this section. For other terminal usage 
refer to the NOS reference manual. 

The formats in figure 6, create programs and input data 
at the terminal. 



I 



The format in figure 7, compiles and executes existing 
programs at the terminal. 



SORT/ MERGE INTERFACE 



Sort/Merge version 4 and 1 processing can be initiated 
through FORTRAN 5 call statements. Field length 
reduction must be off or additional field length 
requested. A list and description of the Sort/Merge 
calls are shown in table 12. 



i 
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Empty record 
terminates loading. 

_1 



data 



a 



/binary deck 



INPUT. 



MAP(OFF) 



CHARGE! 



USER( 



JOB. 



Figure 3. Sample Deck Structure to Load and Execute Binary Programs 
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data #2 



fr, 



/ data #1 



(A 



/ 



/program subs (input,output) 



LGO..TAPE2. 



LGO„TAPE1. 



FTN5. 



z 



t 



CHARGE 



USER ( 



Output will be 
on two separate 
files; data#1 
will be on 
TAPE1,data#2 
on TAPE2. 



/JOB. 




% 



I 



Figure 4. Sample Deck Structure to Compile Once and Execute 
With Different Data Decks 
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6 
7 

9 ^ 



/Data 



fr 



END 



PROGRAM MLT 



OVERLAY(FRANK,1,1] 



END 



L 



CALL OVERLAY (5HFRANK,1,1,0) 



PROGRAM RDY 



OVERLAY(FRANK,1,0) 



END 



(/ SUBROUTINE GROUCH(X) 



END 



/CALL OVERLAY(5HFRANK,1,0,0) -* 



t /CALL GROUCH{40,0) 



/PROGRAM LEO(INPUT,OUTPUT,TAPE1 



OVERLAY(FRANK,0,0) 



g /FRANK. 

/nqgo. 



(1 



AOAD(LGO) 



FTN5. 

/charge ( T 
/user ( ~~ j 

/job. 



1 Primary Overlay (1,0) Source Deck 3 Secondary Overlay (1,1) Source Deck 

2 Main Overlay (0,0) Source Deck 4 Call to Primary Overlay 



Figure 5. Sample Deck Structure of Overlays 
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FORTRAN Subsystem 


BATCH Subsystem 


Login 


Login 


/FORTRAN 


/XEDIT(filnam,C) 


OLD,NEW,OR LIB FILE: 


.... 


FILE NAME: 


??input 


READY. 


INPUT 


AUTO 


? ) 


00100 \ 


> ( 


I 


y input program 
? j 


> input program 


?CR f 


I 


?EDIT 


.CTRL/X / 


??END 




I 



RUN 


/FTN5,l=filnam,L 


? [ input data 


.... 


Results 


/LGO 


RUN COMPLETE 


? [ input data 




Results 




?CR 



?end 



Figure 6. Formats to Compile and Execute Prograrps 
Created at the Terminal 
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Login 

/GET,FILEX 
/GET,FILDATA 
/FTN5,I=FILEX,L=0 

/LGO 



Figure 7. Format to Compile and Execute 
Existing Programs at Terminal 



FORTRAN CONTROL STATEME 

The FORTRAN control statement calls the compiler 
specifies the files to be used for input and output 
and indicates the type of output to be produced 
Table 13 lists the FTN5 statement parameters, th' 
defaults, and the initial values. 
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